
Namespace Entity
    Public Class Cliente
        'Declaracion de las Campos
        Private mIDCliente As Integer
        Private mNombre As String
        Private mDomicilio As String
        Private mLocalidad As Integer
        Private mCUIT As String

        'Constructor por defecto
        'Se inicializan los campos internos
        Public Sub New()
            mIDCliente = 0
            mNombre = ""
            mDomicilio = ""
            mLocalidad = 0
            mCUIT = 0
        End Sub

        'Declaracion de las propiedades
        Public Property IDCliente() As Integer
            Get
                Return mIDCliente
            End Get
            Set(ByVal value As Integer)
                mIDCliente = value
            End Set
        End Property

        Public Property Nombre() As String
            Get
                Return mNombre
            End Get
            Set(ByVal value As String)
                mNombre = value
            End Set
        End Property

        Public Property Domicilio()
            Get
                Return mDomicilio
            End Get
            Set(ByVal value)
                mDomicilio = value
            End Set
        End Property

        Public Property Localidad()
            Get
                Return mLocalidad
            End Get
            Set(ByVal value)
                mLocalidad = value
            End Set
        End Property

        Public Property CUIT()
            Get
                Return mCUIT
            End Get
            Set(ByVal value)
                mCUIT = value
            End Set
        End Property

    End Class

End Namespace
